home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
bldpas.zip
/
RAPSVARS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-30
|
3KB
|
104 lines
UNIT RAPSVARS;
INTERFACE
Const Apos = '''';
UpLeft = #201;
UpRight = #187;
LoLeft = #200;
LoRight = #188;
HWall = #205;
VWall = #186;
Type Buffer = array[1..25,1..80,1..2] Of Char;
ScreenPointer = ^Buffer;
Filenam = Record
Filenm : String[34];
End;
Fieldrecord = Record
Fldln : Integer;
Fldpos : Integer;
Fldlen : Integer;
Fldtyp : Char;
Flddecn : Integer;
Fldints : Char;
Fldcolr : Char;
FldBkColr: Char;
Fldattr : Char;
FldKey : Char;
End;
VAR
RecordNumber : LongInt;
Size : Integer;
Dups : Boolean;
Global_Register_Val : Char;
Error : Integer;
Filevar : Text;
Filevar1 : Text;
CH : Char;
Xpos : Integer;
Ypos : Integer;
X, Y : Integer;
X1, X2 : Integer;
Y1, Y2 : Integer;
lnndx : Integer;
Posndx : Integer;
Fldseq : Integer;
Hldfldseq : Integer;
Maxfld : Integer;
Frstdatafld : Integer;
Lastdatafld : Integer;
Datalen : Integer;
MaxKeylen : Integer;
Keychar : char;
Function_Key : Char;
Function_Id : Char;
Scrnln : Array [1..200,1..80] Of Char;
Scrnptr : ScreenPointer;
Workline : Array[1..80] Of Char;
Clearscrn : Boolean;
Crtmode : Char;
Continue : Boolean;
FKey : Boolean;
Mapln : Array [1..200] of Integer;
Mappos : Array [1..200] of Integer;
Maplen : Array [1..200] of Integer;
Maptyp : Array [1..200] Of Char;
Mapdecn : Array [1..200] Of Integer;
Mapints : Array [1..200] Of Char;
Mapcolr : Array [1..200] Of Char;
Mapattr : Array [1..200] Of Char;
MapKey : Array [1..200] Of Char;
Filename : Filenam;
Mapname : Filenam;
Applname : Filenam;
Datafld : Boolean;
Fldrec : Array [1..250] Of Fieldrecord;
MapTextColor : Byte;
Mapbkcolor : Byte;
MapBoxColor : Byte;
DfltTextColor: Char;
DfltBkColor : Char;
DfltBoxColor : Char;
Goodline : Boolean;
Hldchar : Char;
CompChar : Char;
Skip_Prev : Boolean;
ScrnPrompt : String[80];
Errorfld : Byte;
CondCode : Integer;
OrigTextMode : Word;
GraphDriver : Integer;
GraphMode : Integer;
ProgName : String;
CmdLine : String;
Scrnln1 : String[80];
ScreenTime : String[11];
ScreenDate : String[10];
Year, Month, Day, Dayofweek : word;
Hour, Minute, Second, sec100 : Word;
TChr, Tchr1, Tchr2, Tchr3, Tchr4, Tchr5, Tchr6, Tchr7, Tchr8, Tchr9,
Tchr10 : String;
TNum, TNum1, TNum2, TNum3, TNum4, TNum5, TNum6, TNum7, TNum8, TNum9,
TNum10 : LongInt;
Implementation
END.